home *** CD-ROM | disk | FTP | other *** search
/ The Epic Interactive Enc…lopedia of the Paranormal / The Epic Interactive Encyclopedia of the Paranormal (1997).iso / savcode / cando / main.txt < prev    next >
Text File  |  1992-09-02  |  961b  |  53 lines
  1. Let deck2open="EPIC_Encyclopedia:Menufiles/Requesters/Search.deck"
  2.  
  3. Let result=opendeck(deck2open),"word"
  4.  
  5. Let type=getchars(result,1,1)
  6.  
  7. Let number_of_lumps=NumberOfWords(result)
  8. Let number_of_words=number_of_lumps-1
  9.  
  10. If number_of_words=1
  11.     Let word=getword(result,2)
  12. EndIf
  13.  
  14. If number_of_words=2
  15.     Let word=getword(result,2)||"_"||getword(result,3)
  16. EndIf
  17.  
  18. If number_of_words=3
  19.     Let word=getword(result,2)||"_"||getword(result,3)||"_"||getword(result,4)
  20. EndIf
  21.  
  22. WorkWithDocument "fred"
  23. Clear DOCUMENT 
  24. Type word
  25. SaveDocument "fred","env:sub"
  26.  
  27. If result<>"0 Chob" ;if quit wasn`t selected.
  28.     If type="1"
  29.         If word<>""
  30.             Let text2search=word
  31.             Do "ExactSearch"
  32.         EndIf
  33.     EndIf
  34.     If type="2"
  35.         If word<>""
  36.             Let text2search=word
  37.             Do "IndexSearch"
  38.         EndIf
  39.     EndIf
  40.     If type="3"
  41.         If word<>""
  42.             Let text2search=word
  43.             Do "SearchNext"
  44.         EndIf
  45.     EndIf
  46.     If type="4"
  47.         If word<>""
  48.             Let word2deepsearch=word
  49.             Do "DeepSearch"
  50.             Let lettermode=false
  51.         EndIf
  52.     EndIf
  53. EndIf